* adiciona tabelas da base de dados

nTabelas=adir(aArq,"c:\gesvisual\dados\*.dbf")
open database
for nCont=1 to nTabelas
      aArq[nCont,1]="dados\"+subst(aArq[nCont,1],1,len(aArq[nCont,1])-4)
      add table &aArq[nCont,1]
endfor